home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / eo.dxr / 00033.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  398 b   |  16 lines
  1. global gVoicePlaying, gCurrentLabel
  2.  
  3. on exitFrame
  4.   if not tellLeftBtnState(gGizmo, 1) then
  5.     showRollOverText(rollOver())
  6.   end if
  7.   if gVoicePlaying and not soundBusy(2) then
  8.     if not gizmoOpened(gGizmo) then
  9.       expandGizmo(gGizmo)
  10.     end if
  11.     set gVoicePlaying to 0
  12.     setCompassPict(gGizmo, #on, member (gCurrentLabel & "_LenTxt") of castLib "Internal")
  13.   end if
  14.   go(the frame)
  15. end
  16.